home *** CD-ROM | disk | FTP | other *** search
- object ChangeFont: TChangeFont
- Left = 184
- Top = 136
- BorderIcons = []
- BorderStyle = bsSingle
- Caption = 'Change Font'
- ClientHeight = 265
- ClientWidth = 308
- Font.Color = clWindowText
- Font.Height = -17
- Font.Name = 'System'
- Font.Style = []
- Position = poScreenCenter
- OnCreate = FormCreate
- PixelsPerInch = 120
- TextHeight = 20
- object GroupBox1: TGroupBox
- Left = 8
- Top = 8
- Width = 185
- Height = 201
- Caption = 'Font Size'
- Font.Color = clBlue
- Font.Height = -17
- Font.Name = 'System'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 0
- object RadioButton1: TRadioButton
- Left = 16
- Top = 24
- Width = 145
- Height = 17
- Caption = 'One (smallest)'
- Font.Color = clMaroon
- Font.Height = -17
- Font.Name = 'System'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 0
- end
- object RadioButton2: TRadioButton
- Left = 16
- Top = 48
- Width = 113
- Height = 17
- Caption = 'Two'
- Font.Color = clMaroon
- Font.Height = -17
- Font.Name = 'System'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 1
- end
- object RadioButton3: TRadioButton
- Left = 16
- Top = 72
- Width = 113
- Height = 17
- Caption = 'Three'
- Checked = True
- Font.Color = clMaroon
- Font.Height = -17
- Font.Name = 'System'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 2
- TabStop = True
- end
- object RadioButton4: TRadioButton
- Left = 16
- Top = 96
- Width = 113
- Height = 17
- Caption = 'Four'
- Font.Color = clMaroon
- Font.Height = -17
- Font.Name = 'System'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 3
- end
- object RadioButton5: TRadioButton
- Left = 16
- Top = 120
- Width = 113
- Height = 17
- Caption = 'Five'
- Font.Color = clMaroon
- Font.Height = -17
- Font.Name = 'System'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 4
- end
- object RadioButton6: TRadioButton
- Left = 16
- Top = 144
- Width = 113
- Height = 17
- Caption = 'Six'
- Font.Color = clMaroon
- Font.Height = -17
- Font.Name = 'System'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 5
- end
- object RadioButton7: TRadioButton
- Left = 16
- Top = 168
- Width = 153
- Height = 17
- Caption = 'Seven (largest)'
- Font.Color = clMaroon
- Font.Height = -17
- Font.Name = 'System'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 6
- end
- end
- object BitBtn1: TBitBtn
- Left = 208
- Top = 80
- Width = 89
- Height = 33
- Caption = 'Color'
- Font.Color = clBlue
- Font.Height = -17
- Font.Name = 'System'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 1
- OnClick = BitBtn1Click
- end
- object BitBtn2: TBitBtn
- Left = 32
- Top = 224
- Width = 89
- Height = 33
- TabOrder = 2
- OnClick = BitBtn2Click
- Kind = bkOK
- end
- object BitBtn3: TBitBtn
- Left = 184
- Top = 224
- Width = 89
- Height = 33
- TabOrder = 3
- OnClick = BitBtn3Click
- Kind = bkCancel
- end
- object Edit1: TEdit
- Left = 208
- Top = 128
- Width = 89
- Height = 28
- TabStop = False
- Color = clSilver
- ReadOnly = True
- TabOrder = 4
- end
- object ColorDialog1: TColorDialog
- Ctl3D = True
- Left = 240
- Top = 152
- end
- end
-